home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Deutsche Edition 1
/
Deutsche Edition 1.iso
/
amok
/
071-080
/
amok75
/
oberon3.0
/
o3demo2.lzh
/
Definitions
/
io.def
< prev
next >
Wrap
Text File
|
1992-08-22
|
836b
|
33 lines
DEFINITION io;
IMPORT
d := Dos,
e := Exec;
VAR
out, in : d.FileHandlePtr;
Me : d.ProcessPtr;
closeDelay : LONGINT;
PROCEDURE Write(ch: CHAR);
PROCEDURE WriteLn;
PROCEDURE WriteString(string: ARRAY OF CHAR);
PROCEDURE Tab(n: INTEGER);
PROCEDURE Clear();
PROCEDURE Format(str: ARRAY OF CHAR; data: e.APTR);
PROCEDURE WriteInt(x: LONGINT; n: INTEGER);
PROCEDURE WriteHex(x: LONGINT; n: INTEGER);
PROCEDURE Read(VAR ch: CHAR);
PROCEDURE ReadString(VAR str: ARRAY OF CHAR);
PROCEDURE ReadInt(VAR x: LONGINT): BOOLEAN;
PROCEDURE ReadInteger(VAR x: INTEGER): BOOLEAN;
PROCEDURE ReadShortInt(VAR x: SHORTINT): BOOLEAN;
PROCEDURE ReadHex(VAR x: LONGINT): BOOLEAN;
PROCEDURE ReadIntOk(VAR x: LONGINT);
PROCEDURE ReadIntegerOk(VAR x: INTEGER);
PROCEDURE ReadShortIntOk(VAR x: SHORTINT);
PROCEDURE ReadHexOk(VAR x: LONGINT);
END io.